home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ta.d64 / battle hymn 1.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  44 lines

  1. 0 REM****BATTLE HYMN OF THE REPUBLIC****
  2. 1 REM******BY: NICHOLAS  ASHWORTH*******
  3. 2 REM*********V.1 (TWO VIOLINS)*********
  4. 5 RESTORE
  5. 10 POKE54296,15:POKE54277,95:POKE54278,20
  6. 11 POKE54284,95:POKE54285,23
  7. 12 POKE54275,255:POKE54274,15:POKE54282,255:POKE54281,15
  8. 20 READA:IFA=-1THEN5
  9. 30 READB
  10. 35 READC
  11. 36 READD
  12. 37 READE
  13. 58 POKE54273,A:POKE54272,B:POKE54276,65
  14. 59 POKE54280,C:POKE54279,D:POKE54283,65
  15. 80 FORT=1TOE:NEXT:POKE54276,64:POKE54283,64
  16. 85 FORT=1TO50:NEXT
  17. 90 GOTO20
  18. 101 DATA0,0,0,0,500
  19. 102 DATA22,96,18,209,125,22,96,18,209,189,22,96,18,209,64
  20. 103 DATA22,96,18,209,189,19,239,16,195,64,18,209,14,239,189,22,96,18,209,64
  21. 104 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,189,37,162,22,96,64
  22. 105 DATA37,162,22,96,189,33,135,19,239,64,29,223,18,209,250,0,0,0,0,250
  23. 106 DATA29,223,22,96,64,29,223,22,96,64,25,30,19,239,189,25,30,19,239,64
  24. 107 DATA25,30,19,239,189,28,49,22,96,64,29,223,25,30,189,29,223,25,30,64
  25. 108 DATA29,223,25,30,189,25,30,19,239,64,22,96,18,209,189,25,30,19,239,64
  26. 109 DATA22,96,18,209,189,18,209,14,239,64,22,96,18,209,250,0,0,0,0,250
  27. 110 DATA22,96,18,209,64,22,96,18,209,64,22,96,18,209,189
  28. 111 DATA22,96,18,209,64,22,96,18,209,189,19,239,16,195,64
  29. 112 DATA18,209,14,239,189,22,96,18,209,64
  30. 113 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,189,37,162,22,96,64
  31. 114 DATA37,162,22,96,189,33,135,19,239,64,29,223,18,209,250,0,0,0,0,250
  32. 115 DATA29,223,22,96,125,33,135,25,30,250,33,135,25,30,250
  33. 116 DATA29,223,22,96,250,28,49,19,239,250,29,223,18,209,500,0,0,0,0,500
  34. 117 DATA22,96,18,209,375,19,239,16,195,125,18,209,14,239,189,22,96,18,209,64
  35. 118 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,500,29,223,22,96,250
  36. 119 DATA0,0,0,0,250,25,30,19,239,375,28,49,22,96,64
  37. 120 DATA29,223,25,30,189,28,49,22,96,64,29,223,25,30,189
  38. 121 DATA25,30,19,239,64,22,96,18,209,500,18,209,14,239,250,0,0,0,0,250
  39. 122 DATA22,96,18,209,375,19,239,16,195,125,18,209,14,239,189,22,96,18,209,64
  40. 123 DATA29,223,22,96,189,33,135,22,96,64,37,162,22,96,500,29,223,22,96,250
  41. 124 DATA0,0,0,0,250,29,223,22,96,125,33,135,25,30,250,33,135,25,30,250
  42. 125 DATA29,223,22,96,250,28,49,19,239,250,29,223,18,209,500,0,0,0,0,500
  43. 9000 DATA-1,-1
  44.